home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / exec / fungbase.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  384 b   |  23 lines
  1. /*
  2. \funcref{fun\_g\_base}{void fun\_g\_base ()}
  3.     {}
  4.     {}
  5.     {newvar(), get\_base ()}
  6.     {fun\_g\_path(), fun\_g\_ext()}
  7.     {fungbase.c}
  8.     {
  9.  
  10.         The last pushed string is taken as a file name. The base name is
  11.         returned.
  12.  
  13.     }
  14. */
  15.  
  16. #include "icm-exec.h"
  17.  
  18. void fun_g_base ()
  19. {
  20.     reg = newvar (e_str);
  21.     reg.vu.i->ls.str = get_base (stack [sp].vu.i->ls.str);
  22. }
  23.